home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 55
/
055.d81
/
one-screen winne
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
42 lines
10 poke53281,0:poke53280,0:print"[147]"
20 print" [159][204][207][193][196][211][212][193][210] presents [154][207][206][197]-[211][195][210][197][197][206][160][215][201][206][206][197][210][211]"
40 printtab(7)"[153](c) 1988 by [214]arious [193]uthors[152]"
50 b$(1)=" [194][193][195][203][160][212][207][160][204][207][193][196][211][212][193][210] "
55 b$(2)=" [211] [201] [216] [208] [193] [195] [203] [208] [204] [213] [211] "
60 b$(3)=" [194] [210] [197] [193] [203] - [198] [193] [211] [212] "
70 b$(4)=" [210] [197] [193] [195] [200] ! "
75 b$(5)=" [196] [193] [212] [193] [205] [193] [203] [197] [210] [196] "
78 b$(6)=" [196] [193] [212] [193] [205] [193] [203] [197] [210] [193] "
80 b$(7)=" [211] [197] [193] [194] [193] [212] [212] [204] [197] "
85 b$(8)=" [212] [201] [205] [197] [212] [210] [201] [193] [204] "
90 b$(9)=" 6 4 [212] [201] [205] [197] [210] "
100 fori=1to9
110 printtab(8)""b$(i)
120 next:poke198,0
200 k=1
210 poke214,k*2+3:print
220 printtab(8)""b$(k)
230 poke214,23:print:printtab(8)"[158][213]se cursor keys and [210][197][212][213][210][206][152][145][145]"
240 geta$:ifa$<>"[145]"anda$<>""anda$<>chr$(13)then240
250 ifa$=chr$(13)then300
260 poke214,k*2+3:print:printtab(8)b$(k)
270 ifa$=""thenk=k+1:ifk>9thenk=1
280 ifa$="[145]"thenk=k-1:ifk<1thenk=9
290 print"":goto210
300 poke214,k*2+3:print:ifk<>6thenprint"[204]oading[144]"
302 open15,8,15,"i0":close15
305 poke214,16:print"[144]"
310 onkgoto385,320,330,340,350,355,360,370,380
320 print"load"chr$(34)"sixpack*"chr$(34)",8":goto390
330 print"load"chr$(34)"break-f*"chr$(34)",8":goto390
340 print"load"chr$(34)"reach!"chr$(34)",8":goto390
350 print"load"chr$(34)"datamaker dec"chr$(34)",8":goto390
355 print"load"chr$(34)"datamaker asc"chr$(34)",8":goto390
360 print"[144]load"chr$(34)"sea bat*"chr$(34)",8":goto390
370 print"load"chr$(34)"time tr*"chr$(34)",8":goto390
380 print"load"chr$(34)"64 timer"chr$(34)",8":goto390
385 print"load"chr$(34)"hello connect"chr$(34)",8"
390 print"run:"
400 poke631,13:poke632,13:poke198,2
410 end